home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 141 / 141side1.d64 / b.op ed 141 (.txt) < prev    next >
Commodore BASIC  |  2022-08-30  |  2KB  |  62 lines
  1. 10 poke56,36:poke55,0:clr
  2. 20 dv=peek(186):ifdv<8thendv=8
  3. 25 lf=1:poke788,52
  4. 30 poke53281,0:poke53280,0:print"[147][129]"tab(8)"[204][207][193][196][211][212][193][210]'[211] [207][208] [197][196] [195][193][210][212][207][207][206][211]"
  5. 40 print"[155]           by [211]teven [215]right
  6. 42 [139]f1[167]100
  7. 44 f1[178]1
  8. 50 [158]57812"wp/cm/unp",dv,0:[151]780,0:[151]781,0:[151]782,192:[158]65493
  9. 62 [158]57812"web.shp",dv,0:[151]780,0:[151]781,0:[151]782,100:[158]65493
  10. 64 [158]57812"pc prisoner.shp",dv,0:[151]780,0:[151]781,0:[151]782,117:[158]65493
  11. 66 [158]57812"bon appetit.shp",dv,0:[151]780,0:[151]781,0:[151]782,134:[158]65493
  12. 68 [158]57812"nightmare.shp",dv,0:[151]780,0:[151]781,0:[151]782,36:[158]65493
  13. 70 [158]57812"marginal.shp",dv,0:[151]780,0:[151]781,0:[151]782,48:[158]65493
  14. 90 [151]53280,0
  15. 92 wp[178]49152:un[178]51456:cm[178]50688
  16. 94 lf$(0)[178]"(NULL)ascasc":lf$(1)[178]"(NULL)(NULL) "
  17. 96 s(1)[178]100:s(2)[178]117:s(3)[178]134:s(4)[178]36:s(5)[178]48
  18. 100 [153][163]8)" 1.cont (NULL)orld (NULL)ide (NULL)eb?
  19. 101 printtab(8)" 2.[154] [208].[195]. [208]risoner
  20. 102 [153][163]8)" 3.cont peekon atnppetit
  21. 103 printtab(8)" 4.[154] [200]ardware [206]ightmare
  22. 104 [153][163]8)" 5.cont (NULL)arginal (NULL)ser
  23. 105 printtab(8)" 6.[154] [209]uit
  24. 106 [161]a$:[139]a$[179]"1"[176]a$[177]"6"[167]106
  25. 108 d[178][197](a$):[139]d[178]6[167]40000
  26. 109 [129]i[178]3[164]16:[151]781,i:[158]59903:[130]
  27. 112 [151]251,s(d):[151]252,64:[151]253,96:[158]51456
  28. 120 [151]214,6:[153]:[153]" 1.cont mid$ust show the picture.
  29. 122 print" 2.[154] [211]how the picture and print it on
  30. 125 [153]"    a 7-pin (1525-emulating) printer.
  31. 130 print" 3.[154] [211]how the picture and print it on
  32. 135 [153]"    an 8-pin (valpson-emulating) printer.
  33. 140 print" 4.[154] [212]oggle linefeed -- "lf$(lf)
  34. 150 print" 5.[154] [210]eturn to [204][207][193][196][211][212][193][210]
  35. 170 [153]"list  (NULL)ake sure your printer is on-line.
  36. 220 poke198,0
  37. 222 poke53280,0
  38. 230 geta$:ifa$<"1"ora$>"5"then230
  39. 232 ifa$="5"then40000
  40. 233 ifa$="4"thenlf=1-lf:poke214,14:print:printtab(23)""lf$(lf):goto220
  41. 235 sys51459
  42. 240 ifa$="2"thensys49155,4,0,lf,0,0,39,24,64:goto280
  43. 250 ifa$="3"thensys49152,4,5,lf,0,0,39,24,64,75,35,51,24,0:goto280
  44. 260 poke198,0
  45. 262 poke53280,0
  46. 270 geta$:ifa$=""then270
  47. 280 poke251,s(d):poke252,64:poke253,96:sys51459
  48. 282 poke186,dv
  49. 290 print"[147]":goto30
  50. 10000 dv=peek(186):n$="b.op ed 141":open15,dv,15,"s0:"+n$:close15:saven$,dv:end
  51. 40000 poke788,49
  52. 40002 fori=0to21:poke828+i,8+i:next
  53. 40010 ifdv<8ordv>29ordv=8then40030
  54. 40020 a=peek(828):b=peek(828+dv-8):poke828,b:poke828+dv-8,a
  55. 40030 a$="hello connect":forj=8to29:i=peek(828+j-8):ifi=14thennext
  56. 40040 close2:open2,i,2:close2:ifstthen40060
  57. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  58. 40060 next:print"[147]":poke53272,23:poke186,8:end
  59. 40070 q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  60. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  61. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  62.